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0 1 eTITL BBTORIVR = MASSBUS DISK BOOT DRIVER 
Mite § - 1DEN ite 600" 
$00 
it 5 Re eg ete eee ee ae 
Hid & 
$009 5 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0000 8 ;* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. w 
B88 1 :* ALL RIGHTS RESERVED. * 
P4 ® 
$090 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED . 
44 \¢ 7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
00 15 ;* INCLUSION OF THE ABOVE Sgt NOTICE. THIS SOFTWARE OR ANY oe * 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO A ® 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 1 :* TRANSFERRED. * 
D4 ® 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4444 $y :* CORPORATION. * 
3 ® 
0000 $§ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 3 * 
0000 25 e * 
0000 $$ 5 MeRPSBRAAAASLALALALALLALALLALELALZELELESESLES ES ESE ESE REESE RE RE RRR ARERR RE RAR ARS A SAS OC 
0000 s 
0000 28 
0000 $3 gee 
0000 © ; FACILITY: BOOTS 
0000 31; 
0000 $§ 3; ABSTRACT: 
0000 22 This module contains the boot strae device driver f 
44 $e : MASSBUS disks. It supports the RP04/5/6 and RMO3/5/80. 
9009 36 : ENVIRONMENT: IPL 31, kernel mode, code must be PIC 
0000 38 : AUTHOR: Steve Beckhardt, CREATION DATE: 31-Oct-1979 
444 i; 3 (Original authors: Carol Peters and Charlie Franks) 
0000 41 ; MODIFIED BY: 
0000 ry 3 
0000 43 ; vC2-004 KTA0041 Kerbey T. Altmann 10-Nov-1981 
0000 44 ; Recode drive test routine to loop on Medium-On-L ine 
4464 re : bit thus allowing VMB to stall while drive spins up. 
0000 47; 02-03 caso0o2 _ C.A. Samuelson 98-May-1980 
0000 48 ; Fix driver size calculation so entire driver is copied 
44 $3 : into non-paged pool 
0000 «51: 02-02 caso001 C.A. Samuelson 30-Apr-1980 
44 25 : Change interface to BOOTDRIVR for UBA purge datapath 
0000 54 :-- 
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DECLARATIONS 778Eb= 138 33:36:08 tpoors sre MBBTDRIVR.MAR; 1 ° (3) 
$i ‘ -SBTTL DECLARATIONS 
00 $ INCLUDE FILES: 
$90 : 3 
BA 60 
000 61 SBTDDEF : Define boot device types 
8600 6¢ SIODEF 3; Define 1/0 function codes 
000 6 SMBADEF ; Define MASSBUS adapter registers 
0000 64 PRDEF 3; Define grgcoeeer registers 
0000 65 SRPBDEF : Define RPB offsets 
0009 66 SDEF ; Define system status codes 
4 67 
000 68 ; 
0000 69 ; MACROS: 
0000 70 ; 
0000 71 
0000 ie) -MACRO MBADEV,TYPE,SPC,SPT 
0000 7 BYTE TYPE ; MASSBUS DEVICE CODE 
0000 74 -WORD SPC ; SECTORS PER CYLINDER 
0000 75 BYTE SPT 3; SECTORS PER TRACK 
0000 76 ~ENDM MBADEV 3 
0000 77 
0000 78 ; 
0000 79 ; EQUATED SYMBOLS: 
0000 80 ; 
0000 81 
0000 82 ; 
0000 83 ; RP04/05/06 MASSBUS REGISTER OFFSETS 
0000 84 ; 
0000 85 
0000 86 SDEFINI RP 
0000 87 
0000 88 SDEF BLKL 1 sDRIVE CONTROL REGISTER 
0004 89 RUIELD RP os 30. <- ; DRIVE CONTROL REGISTER BIT DEFINITIONS 
0004 90 ; GO BIT 
0004 31 SF COOE, ” §5- + FUNCTION CODE 
0004 38 SDEF RP DS -BLKL 1 sDRIVE STATUS REGISTER 
0008 94 -VIELD RP_DS,6,<- : DRIVE STATUS REGISTER BIT DEFINITIONS 
0008 95 <v7, .M>,- : VOLUME VALID 
0008 96 <DRY,,M>,- 3; DRIVE READY 
0008 97 <DPR, ,M>,- ; DRIVE PRESENT 
0008 98 <PGM, ,M>,- ; PROGRAMMABLE 
44 99 <LST,,M>,- 3; LAST a ATE TRANSFERRED 
00 100 <WRL,,M>,- 3; DRIVE WRITE LOCKED 
0008 101 <MOL,,M>,- 3; MEDIUM ONLINE 
4 196 <PIP,,M>,- 3; POSITIONING IN PROGRESS 
000 10 <ERR, ,M>,- ; COMPOSITE ERROR 
008 ie <ATA, ,M>= ; ATTENTION ACTIV 
00 106 SDEF RP ER1 ~BLKL sERROR REGISTER 1 
00C 107 VIELD RP_ER1,0,<- ; ERROR REGISTER 1 BIT DEFINITIONS 
00C 198 <ICF,,M>,- 3 ILLEGAL FUNCTION 
00C 10 ILR,,M>,- 3; ILLEGAL REGISTER 
00C 110 <RMR, ,M>,- 3; REGISTER MODIFY REFUSED 
Bebe 111 <PAR, ,M>,- ; PARITY ERROR 
00C 112 <FER,,M>,=- 3; FORMAT ERROR 
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MBBTORIV = MASSBUS DISK BOOT DRIVER 15-SEP-1984 23:56:04 VAX/VMS Macro V04-00 Page 4 
v04- DECLARATIONS Fat te 1 $3:00i$ BOOTS.SRCJMBBTDRIVR.MAR; 1 . (2) 
00000005 009 170 RM_ER2_V_SSE = § _— 
Q 17 3 
00 175 ; OWN STORAGE: 
44 174; 
00 175 
000 176 ; 
44 177 ; BOOT DRIVER TABLE ENTRY 
0 178 ; 
0000 179 
0000 180 $BOOT_DRIVER DEVTYPE = BIDSK_MB,- ; Device type (MASSBUS) 
0000 13] SIZE = MBA_DRVS ses : : Driver size 
0000 (1 ; APOR = a here : Driver adareee 
0000 18 ENTRY : MBA_DIS RIVER, - ; Entry point 
0000 184 DRIVRNAME = -D1SK BRIVE : Driver name 
0000 185 
0000 186 
0000 187 DRIVERNAME: ; Boot device driver name 
58 45 2€ 52 45 56 49 52 44 52 44 i 444 188 -ASCIC /DRDRIVER.EXE/ ; Assume DRDRIVER 
0c 0000 
000D 189 
000D 190 
000D 191; 
0000 136 : GEOMETRY TABLE FOR MASSBUS DISKS 
000D 193; 
000D 194 
000D 195 -SHOW BINARY ; Show MACRO expansions. 
000D 196 
000D 197 MBAGEOM: : 
000D §=198 MBADEV <*X10>,<22*19>,22 3 RPOG 
10 000D BYTE *x10 3 MASSBUS DEVICE CODE 
01A2 OO0E ~ WORD ee 3; SECTORS PER CYLINDER 
16 0010 -BYT 2 ; SECTORS PER TRACK 
0011 199 MBADEV <*X11>,<22*19>,22 : 05 
11 0011 BYTE “x11 ; MASSBUS DEVICE CODE 
O1A2 0012 - WORD 2219 ; SECTORS PER CYLINDER 
16 0014 BYTE 22 ; SECTORS PER TRACK 
0015 200 MBADEV <*X12>,<22*19>,22 : RPO6 
ig 0015 -BYTE “x12 ; MASSBUS DEVICE CODE 
O1A2 0016 ~ WORD be ; SECTORS PER CYLINDER 
16 0018 BYTE 2 : SECTORS PER TRACK 
0019 201 MBADEV <*X14>,<5#32>,32 : RMO3 
14 0019 BYTE “X14 3; MASSBUS DEVICE CODE 
OOA0 O1A ~ WORD 5+32 ; SECTORS PER CYLINDER 
20 OO1C BYTE 32 ; SECTORS PER TRACK 
001D 202 MBADEV <*X16>,<14#31>,31 ; RMBO 
16 Baie BYTE reg 3; MASSBUS DEVICE CODE 
0182 33 -WORD 14*51 ; SECTORS PER CYLINDER 
1F 002 BYTE 31 ; SECTORS PER TRACK 
0021 203 MBADEV <*X17>,<19#32>,32 3: RMOS 
17 00 1 BYTE “x17 3; MASSBUS DEVICE CODE 
0260 %u22 eWORD 19232 ; SECTORS PER CYLINDER 
20 00 é "BYTE 32 : SECTORS PER TRACK 
025 204 MBADEV <*X22>,<50*32>,50 ; RPO7 (W/O HEAD PER TRACK) 
6 Bs 5 BYTE “x2 3; MASSBUS DEVICE CODE 
064 6 ~ WORD 50*52 3; SECTORS PER CYLINDER 


| MBBTDRIVR - MASSBUS D1 
be wO00 DECLARATIONS - 
32 00 .BYT 50 : 
90 § 205 MBADEV <*X21>,<50#32>,50 : 
029 «BYTE x21 : 
002A ~WORD 5032 : 
002C -BYTE 50 ; 
002D 206 -BYTE 0 ; 


Sk BOOT DRIVER rere 188s 38:88 


5 AX/VMS Macro v04-00 Page § 


1 (BOOTS. SRCIMBBTDRIVR.MAR; 1 (2) 


SECTORS PER TRACK 
PO7 (WITH HEAD PER TRACK OPTION) 
SSBUS DEVICE CODE 


CTORS PER TRACK 
RMINATE LIST 


R 
MA 
oe ee PER CYLINDER 
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MBBTDRIVR - MASSBUS DISK BOOT DRIVER 15-SEP-1984 56:04 VAX/VMS Macro v04-00 
| VO4 RMS 72780, RPOGTS/6/ Bootstrap driver c 2-SE = 1 3be 33:00:94 tBoors. sre MBBTDRIVR.MAR; 1 
9 E 08 ~SBTTL RMO3/5/80, RPO4/5/6/7 Bootstrap driver code 
O2E 10 ;+¢ 
| BE sou 
° nputs: 
O0eE is; 
O2E 14 ; R3 - base address of adapter's register space 
002E 15 ; R5 - LBN for current piece of transfer 
002E 16 ; R - contains 0 
002E 17 ¢ a - size of transfer in bytes 
002E 18 ; Rg - address of the RPB 
BOSE 19 ; R10 - starting address of transfer (byte offset in first 
O2E 20 ; page ORed with starting map register number) 
Bose 234 3 R11 - Block number at start of transfer 
| O05 6 : FUNC(AP)= I/0 operation (IO$_READLBLK or I0$_WRITELBLK only) 
QO2E 224 ; MODE(AP)= Address interpretation mode (0 = physical, 1 = virtual) 
002E $$? ; SIZE(AP)= Size of buffer in bytes 
QO2E 26 ; BUF (AP) - Address of buffer 
OO2E 227; Noe 
OO2E 228 ; Implicit inputs: 
| QO2E 209 
pase $39 : RPBSW_UNIT - RPB field containing boot device unit number 
| OO2E 232; MBAGEOM - a table describe the geometries of the 
OO2E 233; MASSBUS disks 
OO2E 234; 
OO2E 235 ; Outputs: 
OO2E 236; 
OO2E 237; RO - status code 
OO2E 238 ; 
OO2E 239; SS$_NORMAL - successful transfer 
OO2E 240; SS$_NOSUCHDEV = enaoerses device 
BOSE sti : SS$_CTRLERR - fatal controller error on transfer 
002E $08 3 This routine destroys R1, R5, R6, and R7. Within the routine, 
pose ste ; register usage is as follows: 
OO2E 246; RO - drive type from the qoeneers table 
OO2E 247 ; MASSBUS device function code 
OO2E 248 ; status code 
QO2E 249 ; R1 - address of an entry in the MBA geometry table 
QO2E 250; R5 - used in logical to physical caiculation 
OoSe $e! 3 R6 - orive type according to device register 
002E aw used in logical to paysicet calculation 
QO2E 253; R7 - address of the Ist external register for 
002E 54 ; this unit on the MBA 
002E 23 3 
QO2E 256 i-- 
O02E 25 
00000004 BOSE $26 BUF = 4 
00000008 002E 59 SIZE = § 
0000000C 002E 60 LBN = 1 
00000010 002E 61 FUNC = 16 
| 00000014 53 66 MODE = 20 
O2E 264 MBA_DISK_DRIVER: ; RMO3/5/80, RPO04/5/6/7 Boot driver. 
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“MBBTOR VR - MASSBUS DISK BOOT DRIVER “SEP=19 
v04 RMOS/S 780, RP04/5/6/7 Bootstrap driver c ai set 1 33:0 
57 64 a9 0 65 MOVZWL RPBSW_UNIT(R9) ,R7 : 
57 $7 (07 3 09 : 66 ASHL RT OR : 
57 0400 (347 00 6 67 MOVAB MBASL_ERB(R3)CR7],R7 : 
| 
003¢ $9 
003¢ 0 
8 : 4 register to make up the 
| 04 7 00040000 BF 3 005¢ rg BITL  #MBASM_SR_NED,RP_DS(R7) ; 
| 13 0044 74 BEQL 1 : 
OOA3 31 0046 275 BRW NOSUCHDEV + NO 
| gy 
| 0049 «578 
0049 79 ;: 
0049 380 
04 A7 00001000 BF D3 0049 281 108 BITL § #RP_DS_M_MOL.RP_DS(R7) ; 
FS 13° 0051 38¢ BEQL : 
ey D0 0053 28 MOVL #<9%2>41,RP_CS1(R7) : 
56 18 A? DO 0056 284 .15$:  MOVL RP DUCRTS, RB : 
12 56 91 OOSA 285 CMPB 3s RO #AX12 ; 
06 1A 005D 286 BGTRU 1 : 
9C AF 4264 BF BO O05F 287 MOVW #*A/DB/,DRIVERNAME+1 : 
51 A2 AF QE 0065 288 17S: MOVAB MBAGEOM-3,R1 : 
51 03 CO 0069 289 20S: ADDL #3,R1 : 
50 81 90 006C 290 MOVE (R1)+,RO : 
03 12 OO6F 291 BNEQ : 
0078 31 0071 292 BRW NOSUCHDEV : 
50 56 91 0074 293 30S: CMPB  —s- R86, RO. : 
FO 12 0077 294 BNEQ 20 nee 
24 A? 1000 BF 3C 0079 295 MOVZWL #RP_OF_M_FMT,RP_OF(R7, ; 
O007F 296 
O0O7F 297; 
OO7F 298 ; Convert LBN to physical device address. 
OO7F 299: 
007F 300 
56 D4 OO7F 301 CLRL = R6 : 
50 81 3C 0081 30¢ MOVZWL (R1)+,R0 : 
55 28 a7 55 50 7B 0084 30 EDIV.— RO Rs: RP_DC(R7) RS : 
50 81 9A OOBA 304 MOVZBL (R1)+.R ; 
56 55 55 50 78 O08D 305 EDIV. _RO,R5S.R5,R6 : 
009 06 MBCOMMON: : 
56 08 08 55 FO 009 07 INSV RS, #8. +. R6 : 
14 a7 56 00 009 08 MOVL R6,R R7) 3 
10 a3 58 CE 009B 9 MNEGL R8 BASE BCR(R3) : 
0C As «5A «00 «(009F)~=—s 310 MOVL R10 MBAST VAR(R3) ; 
50 39 DO OOA3 311 MOVL Re #2>+1-RO : 
2010 AC D1 00K6 512 CMPL - FUNC(AP) ,#10$_WRITELBLK : 
95 12 OOAA 31 BNEQ : 
50 1 DO OQOAC 14 MOVL #<2422>+1,R : 
67 50 00 DOA 15 10$: MOVL  RO,RP etstiR?) : 
0B¢ 16 
008 17 : ; 
oe 133 ; Loop until the transfer completes. 
0B 30 
| 08 As «pS «(0B 1 20$: TSTL MBASL_SR(R3) ; 
' 
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GET UNIT NUMBER OF BOOT DEVICE 

ALIGN TO UNIT NUMBER FIEL 


I 
FORM ADDRESS OF DRIVE REGISTERS 


; NOTE: The following test works because the MBA OR's the upper 16 bits of 
: the MBA register SR and phe lower 16 bits of the driver status 
; 2 bits sensed on a longword access. 


DOES DRIVE EXIST? 
YES, CONTINUE 


: Check to see that Medium-On-Line is set. If not, spin until it is.. 


; 1S MEDIUM ON LINE? 


ET 
; as it RRPO4/5/62 
; YES, CHANGE DRIVERNAME 


POINT TO START OF ty TABLE 


; ot ge TO NEXT TYPE COD 


; GET TYPE CODE 
; IF NEQ, LEGAL TYPE FOUND - CONTINUE 
TYPE NOT tooe UNSUPPORTED DEVICE 
; CHECK FOR an ATCH 
NO, TRY A 


THER 
SELECT 16 “BIT FORMAT 
Start the transfer. 


GH ORDER BITS OF DISK ADDRESS 
ORS PER CYLINDER 
E AND” SET CYLINDER ADDRESS 
CALCULATE SECTOR AND TRACK ADDRESS 


MERGE SECTOR AND TRACK ADDRESS 
SET DESIRED SECTOR AND TRACK ADDRESS 


; SET TRANSFER BYTE COU 


AND SET AS VIRTUAL STARTING ADDRESS 
ASSUME 
1S FUNCTION WRITE? 


N 
SEf WRITE FUNCTION 


; START TRANSFER 


DATA TRANSFER BUSY? 


— —-_- —___ ror - er. O ICV —s 
; 


; 


E 2 
| MBBTDRIVR - MASSBUS DISK BOOT DRIVER 15-SEP-1984 23:56:04 VAX/VMS Macro v04-00 Page 
‘Yoe~000 RMS) 8780, RP04/5/6/7 Bootstrap driver c 275E b= 138 g 30:94 teoors sre MBBTDRIVR.MAR; 1 ° 3) 
FB S19 Be ¢ BLSS 20$ ; IF LSS YES 
| 087 35% 
7 é ; If the boot device is an RM80, check for a skip sector error. 
087 : 
| 56 18 A7 00 Son? 8 MOVL RP_DT(R7) ,R6 ; GET DEVICE TYPE 
56 16 ©0 «691 =«—(00BB 2 CMPB ss #*%16,R6 ; IS BOOT DEVICE = RM80? 
09 #1 Boek 0 BNEQ 3; IF NEQ, NO 
34.A7 20 OD b9¢ 1 BITL  #RM_ER2_M_SSE,RP_ER3(R7) ; SKIP SECTOR ERROR? 
03 13 004 : BEQL : If EQL, NO 
008 31 0C6 ; BRW SSERROR : SKIP SECTOR ERROR 
00C9 33 3 
00C9 36 ; See if the transfer was a success. 
00C9 $30 3 
00C9 38 
01 DO 00C9 339 30S: MOVL #SS$_NORMAL ,RO ; ASSUME NORMAL 
08 A3 OOOESFFF 8F » o0occ 340 BITL #MBASM_ERROR ,MBASL_SR(R3) ;ANY CONTROLLER ERRORS? 
18 13 00D4 341 BEQL RETURN ; IF EQL NO 
00D6 * 
00D6 43; 
00D6 44 ; An error occurred in the transfer. Prepare 4 input registers and call 
00D6 45 ; the ECC correction routine. 
00D6 46 ; 
00D6 84 
50 08 A7 DO 00D6 48 MOVL RP_ER1(R7) ,RO 3; GET ERROR STATUS 
51 10 AS bO OODA 349 MOVL MBASL_BCR(R3),R1 3; AND BYTE COUNT REMAINING 
51. 51 32 OODE 350 CVTWL =sR'1,R1 ; EXTEND SIGN 
55 38 A? DO 00E1 351 MOVL RP_EC1(R7),R5 ; GET ECC POSITION 
56 3c AZ DO OOES $26 MOVL RP_EC2(R7) ,R6 ; AND PATTERN 
0006 31 OOEF9 35 BRW ct ; ATTEMPT ECC CORRECTION 
OOEC 354 
OOEC 355; . : - : 
QOOEC 356 ; The specified boot device unit does not exist, or it is of an 
OQOOEC 357 ; unsupported drive type. 
OOEC $28 3 
OOEC 59 
OOEC 360 NOSUCHDEV: ; UNSUPPORTED DEVICE 
50 0908 8F 3C geet $0) MOVZWL #SS$_NOSUCHDEV,RO ; SET ERROR CODE 
OOF 1 365 RETURN: 
05 OOF! 364 RSB ; AND RETURN 
, 
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MBBTDRIVR = MASSBUS DISK BOOT DRIVER 15-SEP-1984 23:56:04 VAX/VMS Macro v04-00 Page 9 
| V046-000 ECC = PERFORM ECC ERROR CORRECTION Fae et} 33:00:84 teoors sre MBBTDRIVR.MAR; 1 . (4) 
| oF 66 .SBTTL ECC = PERFORM ECC ERROR CORRECTION 
OF rt: 34+ 
OF § 3 ‘ 

j or oy ; Functional description: 
| O9F es 3 ATTEMPT ECC ERROR CORRECTION 
| OOF 74 : INPUTS: 
| OOF "2 3 
| OOF 76 ; RO - RP_ER1 ERROR STATUS REGISTER 
Bor fr 3 Ri - NEGATIVE BYTE COUNT REMAINING 
OF 78 ; R5 - ECC POSITION 
OOF 79 ; R6 - ECC PATTERN 
OOF 80 ; R8 - BYTE COUNT REMAINING AT START OF LAST TRANSFER 
OOF 81; R10 - pe, address of transfer 
Oo 6 ; R11 - BLOCK NUMBER AT START OF TRANSFER 
OOF 382 3; Outputs: 
OOF 385 ; 
OOF 386 ;-- 
OOF 2 44 
Ooes 88 ECC: 3; ATTEMPT ECC CORRECTION 
OOF 389 
OOF 2 $09 ; 
OoES $0 ; Don't attempt an ECC correction if any of the following conditions apply: 
OOF 2 335 ; the error was not a data check 
OOF 2 94 ; the error was a hard ECC error : 
OOF 2 $32 3 the transfer mode does not match the map-enabled position, i.e., 
OOF 2 96 ; transfer is virtual, and mapping is not enabled, or v.v. 
OOF2 397 ; no bytes have been transferred yet 
OOF2 398; 
OOF2 399 
58 50 OF €1 OOF2 400 BBC #RP_ER1_V_DCK,RO.RETRY ; NOT DATA CHECK, RETRY 
5750 06 £0 OOF6 401 BBS #RP_ER1_V_ECH,RO,RETRY ; HARD ECC ERROR, RETRY 
50 38 DB OOFA 40 MFPR #PRS_MAPER,RO 3; GET MAP ENAB E 
14 AC 50 01 OOFD 40 CMPL RO, MODE (APS : SAME AS 1/0 
4E 12 0101 404 BNEQ RETRY ; NO, CANT DO SIMPLE ECC 
51 58 CO 0103 405 ADDL R8,R1 ; COMPUTE BYTES TRANSFERRED 
49 13 0106 406 BEQL RETRY ; NONE, RETRY 
0108 407 
0108 408 ; : 
34 ret ; Appears to be a correctable data check. Attempt the correction. 
0108 411° 
50 51 F7 8F 78 0108 aig - ASHL #-9,R1,RO ; CONVERT TO PAGE COUNT 
5B 50 cO QO10D 41 ADDL RO,R11 ; UPDATE BLOCK NUMBER 
5A 51 co Bits 414 ADDL R1,R10 ; UPDATE BYTE ADDRESS 
58 51 Ce 011 415 SUBL R1,R8 ; DECREASE BYTES REMAINING 
55 (OD g1i8 ry DECL RS 3; MAKE POSITION 1 ORIGIN 
50 0200 C8 7 118 341 MOVA 512(R8) ,RO : REMAINING BYTES AT START OF BAD SECTOR 
52 08 AC 50 C 011D 418 SUBL RO, SIZE (AP) ,R2 ; BYTES TRANSFERRED AT START OF ERROR SECTOR 
50 28 C4 01 ¢ 419 MULL #8 RO ; CONVERT BYTE COUNT TO BIT COUNT 
50 5 7 4 420 SUBL R5,R0 ; COMPUTE CORRECTION FIELD WIDTH 
19 #1 128 8421 BLEQ 208 ; BR IF NO CORRECTION NEEDED 
0D 50 Di O12A 422 CMPL RO,#RP_EC1_S_POS 3; MINIMUM OF 13 AND BUFFER REMAINING 
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| Seetpayve = MASSBUS DISK BOOT DRIVER iF ot 3 St 9 33 36:06 yanives Macro V04-00 Page 
ECC = PERFORM ECC ERROR CORRECTION 4-SEP-1984 04:51 (CBOOTS.SRC MBBTDRIVR. MAR; 1 
0 o 08 Ole t3 BOL RRPLECI_S : CimIT FIELD TO RPEC1_$_POS BITS 
51 04 BC42 26 33 EF 1 g 425 10$: EXTZV RS RO: Agcr cass ta, R1 : GET FIELD TO BE CORRECTED 
51 6 c¢c 01 4 $ XORL R6,R1 : APPLY CORRECTION CODE 
06 B8C42 50 55 = 51 FO Biz : 5 INSV R1,R5,R0,a@BUF (AP) CR2] ; AND STORE IN BUFFER 
014 429 ; 
Bie 439 3; If the transfer is not complete, branch back to retry it. 
0143 432 ° 
58 DS 014 138 20$ TSTL R8 3 a FOR COUNT REMAINING 
06 15 pit3 434 BLEQ 30$ : XIT 
55 SB 00 0147 435 MOVL R11,R5 : Gere WORKING COPY OF LBN 
FEE1 31 O16A 436 BRw MBA_DISK_DRIVER 3; CONTINUE TRANSFER 
014D 437 
014D 438 ; ; 
014D 439 ; Transfer is complete. Return with success status code. 
gp Set: 
50 01 3c 6001400 = 442-308: MOVZWL #SS$_NORMAL ,RO s SET et Na CODE 
05 0150 443 RSB 3; AND RETU 
0151 444 
0151 445 ; ; 
0151 446 ; No FCC correction was possible. Return and retry. 
0151 447 ; 
0151 448 
0151 449 RETRY: 
50 0054 &F 3¢)0=— 0151 450 MOVZWL #SS$_CTRLERR,RO 3; SET FAILURE 
05 0156 451 RSB 3; RETURN 
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-SBTTL SSERROR = RMBO SKIP SECTOR ERROR ROUTINE 
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+ FUNCTIONAL DESCRIPTION: 


SSERROR is entered if an RM80 boot device encounters a skip 
sector error (SSE). SSE's are inhibited for the remainder of 
the current track, transfer parameters are updated to the Last 
successful sector, and the sector address is incremented to skip 
the error sector. The transfer is the allowed to continue. 


Note: The first bad spot on each track of an RM8O is marked at 
manufacturing time as a ‘'skipped sector’’, and causes an 
SSE. Data for the remaining sectors on that track are 
incremented by gne physical sector, the last (31st) sector 
mapping into a 32nd sector reserved for this use. 
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157 
157 
157 
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157 
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157 
157 
0157 
187 
0157 
0157 
0157 
0157 
0157 
0157 INPUTS: 
0157 
0157 - base address of the adapter's register space 
0157 R7 - address of the first external MBA register for this unit 
0157 RB - byte count remaining at start of last transfer 
0157 R10 - starting address of transfer 
Bi2e R11 - updated block number (LBN) 
0157 OUTPUTS: 
0157 79 
0157 80 Skip sector error is cleared in the error register (RP_ER3). 
0157 81 Skip sector error inhibit is set in the offset register (RP_OF). 
0157 Hf R5 - current track address : 
0157 48 R6 = sector address incremented past skipped sector 
0157 484 R8 - updated byte count remaining to transfer 
0157 485 R10 - updated starting address 
0157 486 R11 - updated block number (LBN) 
0157 487 
0157 488 ;-- 
0157 489 
0157 490 SSERROR: ; RM80 SKIP SECTOR ERROR ROUTINE 
24 A7 00000200 8F CB 0157 491 BISL #RM_OF_M_SSEI,RP_OF(R7) ; Set skip sector error inhibit 
67 09 00 Bize re: MOVL #<482>717RP_CS1(R7) ; Clear drive errors 
0162 494 ; 
016 495 ; Update transfer parameters 
O162 139 
51 10 A3 DO 016 498 MOVL MBASL_BCR(R3) ,R1 ; Get negative bytes remaining 
51 51 32 0166 499 CVTWL =sR1,R1 : Extend sign 
07 12 0169 500 BNEQ 10$ :; If NEQ, partial transfer 
51 FFFFFFFF 8F 00 Big 501 MOVL #-1,R1 : Force a partial transfer 
51 58 CO 017 208 10$: ADOL R8,R1 :; Calculate bytes transferred 
51 OF 8F AA O17 50 BICW #*X1FF RI ; Truncate start of sector 
50 51 7 8F 78 OI17A 504 ASHL #-9,R1,R0 :; Convert to page count 
5B 50 46CO O17F 8 6505 ADDL = RO, R11 ; Update LEN 
5A 651 «C0 HT 286 ADDL R1,R10 ; Update starting address 
ee ee? +} 07 SUBL R1,R8 ; Decrease bytes remaining 
188 508 
| 0188 509; 
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SSERROR = RMBO SKIP SECTOR ERROR ROUTINE 4=-SEP-1984 204: BOOTS. SRCJMBBTDRIVR.MAR; 1 (5) 
1 10 ; Convert updated LBN to physical device address. 
} 12 : Increment past skipped sector and re-start. 
1 13° 
55 28 DO 18 514 MOVL R11,R5 ; Get working copy of LBN 
6 4 0188 15 CLRL 3; Clear high order bits of disk address 
50 0182 gf C 018D 1 MOVZWL #<14%31>,R0 ; Cet sectors per cylinder 
55 28 a7 55 50 B 136 1 EDIV Rg R5 RP “DC(R7), RS : Calculate and ont cyt inder address 
29 iF 9A 019 18 MOVZBL #31,R6 : Get sectors per track 
56 655—C(C*SSS 20 7B 198 19 EDIV Rd, RS,R5,R6 : Calculate Roctrack Ré<sector 
6 96 as 9 INCB ; Increment sector address 
FEED 31 OIA2 2 ¢ BRwW MBCOMMON ; Restart the function 
QO0001AS 0O1A5 524 MBA_DRVSIZ=.-DRIVERNAME 
O1A5 525 
O1A5 6 526 .END 
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Symbol table 


STABLE 
BTDSK MB 


DRIVERNAME 
ECC 


FUNC 
10$_WRITELBLK 
LBN 


MBA_DISK_DRIVER 
MBA-DRVSTZ 


MOD 
NOSUCHDEV 


RP~OF 
RP~OF_M_FMT 
RP~SN 

To ae 

SIZE 
SS$_CTRLERR 
$S$_~NORMAL 
$S$-NOSUCHDEV 
SSERROR 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 
» SS -« BA 808008 ( 0.) 0¢( QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000004 ( 64.) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR’- EXE RD WRT NOVEC BYTE 
BOOTDRIVR_4 00000028 40.) §¢ ( §°} NOPIC USR CON’ REL LCL NOSHR' EXE RD WRT NOVEC BYTE 
BOOTDRIVR_2 QO0001AS (¢ 421.) O38 ¢ -) NOPIC USR CON’ REL LCL NOSHR’- EXE RD WRT NOVEC BYTE 
tener mmm omer om noe sence aene + 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.06 00:00:00.50 
Command processing 111 00:00:00.64 BF 06 $3 
Pass 354 00:00:11.55 00:00:23.78 
Symbol table sort 0 Sea Sb aS 00:00:02.81 
Pass 2 109 00:00:02.35 00:00:04.49 
Symbol table output 8 00:00:00.08 00:00:00.09 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output ! BO bo to ee 88 + 88 798-20 
Assembler run totals 61 00:00:16.54 00:00:33.95 


The working set Limit was 1650 popes. 
65135 bytes (128 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1159 non-local and 12 local symbols. 
526 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

18 pages of virtual memory were used to define 16 macros. 
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! Macro Library statistics ! 
fewmeocaene ee cee e Cee re rere wee + 


Macro Library name Macros defined 


“$255$DUA28: [BOOTS ,0838001S.MLB; 1 

Biittrnt Hehe LIB.MLB;1 

$255$DUA28: (SYSLIBSSTARLET.MLB; 2 

TOTALS (all Libraries) 1 
1175 GETS were required to define 11 macros. 

There were no errors, warnings or information messages. 
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